home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -serious- / programming / other / tandem / teaching / 20.i < prev    next >
Text File  |  1999-09-06  |  252b  |  11 lines
  1. * Teaching/16.i   (to demonstrate INCLUDE)
  2.  
  3.  xref _LVODisplayBeep
  4.  
  5. * beep the screen (intuition.library must already be in intbase)
  6. Beep:
  7.  move.l intbase,a6
  8.  sub.l a0,a0             ;a0=0 to beep all screens
  9.  jsr _LVODisplayBeep(a6) ;beep screens
  10.  rts
  11.